﻿<!--#include file="mymin.asp"-->
<title>友链管理</title></head><body><div class='main400'>
<%
w systemMsgRoot

dim Rs,Sql,idd
idd=Request.Querystring("id")

set Rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from 74hu_link Where classid="&idd&" and del=0 order by HU_time desc"
rs.open Sql,myconn,1,1
If Not rs.eof Then
	Dim PageSize,i,Count,page,pagecount
	PageSize=15
	Count=rs.recordcount
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	w "共:"&count&"条友链<br/>"
	For i=1 To PageSize
	If rs.eof Then Exit For
	w "<a href=""Showlink.asp?sid="&sid&"&amp;class="&rs("classid")&"&amp;id="&rs("id")&""">"&nowml(rs("name"))&_
		"</a>(出"&rs("HU_out")&"/入"&rs("HU_in")&")<br/>"&_
		"<a href='"&nowml(rs("URL"))&"'>查看</a>|"&_
		"<a href='Edit_link.asp?sid="&sid&"&amp;class="&rs("classid")&"&amp;id="&rs("id")&"'>编辑</a>|"&_
		"<a href='DEL_link.asp?sid="&sid&"&amp;class="&rs("classid")&"&amp;id="&rs("id")&"'>删除</a><br/>"
	rs.moveNext
	Next
	w showPage("mymin_class.asp", "id:"&idd, page, pageCount)&""

Else
	w "该分类暂时没有友链！"
end if%><br/>
<a href="Link_class.asp?sid=<%=sid%>">[分类管理]</a><br/>
<a href='mymin_index.asp?sid=<%=sid%>'>[友链后台]</a>
<%call Last2%>